use strict;
use Stdlog;
use File::Spec;
use Test::More;

eval { 
    require DBI; 
    require IO::Socket;
};
if( $@ ) {
    plan skip_all => 'IO::Socket not installed' 
}else{
    plan tests => 1;
}

# Test 1 -- create Syslog writer
my $writer = Stdlog::Writer->new({writer => 'Socket'});
ok($writer && ref($writer) eq 'Stdlog::Writer::Socket',
    "Created Stdlog::Writer::Socket");
